home *** CD-ROM | disk | FTP | other *** search
/ PC Open 107 / PC Open 107 CD 1.bin / CD1 / INTERNET / COPIA SITI / Getleft / getleft-setup-notcl.exe / {app} / scripts / tablelist.tcl < prev    next >
Encoding:
Text File  |  2004-03-11  |  1.4 KB  |  49 lines
  1. #==============================================================================
  2. # Main Tablelist package module.
  3. #
  4. # Copyright (c) 2000-2004  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
  5. #==============================================================================
  6.  
  7. package require Tcl 8
  8. package require Tk  8
  9.  
  10. namespace eval tablelist {
  11.     #
  12.     # Public variables:
  13.     #
  14.     variable version    3.4
  15.     if {[string compare $::tcl_platform(platform) macintosh] != 0} {
  16.     #
  17.     # On the Macintosh, the tablelist::library variable is
  18.     # set in the file pkgIndex.tcl, because of a bug in
  19.     # [info script] in some Tcl releases for that platform.
  20.     #
  21.     variable library    [file dirname [info script]]
  22.     }
  23.  
  24.     #
  25.     # Creates a new tablelist widget:
  26.     #
  27.     namespace export    tablelist
  28.  
  29.     #
  30.     # Sorts the items of a tablelist widget based on one of its columns:
  31.     #
  32.     namespace export    sortByColumn
  33.  
  34.     #
  35.     # Register various widgets for interactive cell editing:
  36.     #
  37.     namespace export    addBWidgetEntry addBWidgetSpinBox addBWidgetComboBox
  38.     namespace export    addIncrEntryfield addIncrDateTimeWidget \
  39.             addIncrSpinner addIncrSpinint addIncrCombobox
  40.     namespace export    addOakleyCombobox
  41.     namespace export    addDateMentry addTimeMentry addFixedPointMentry \
  42.                 addIPAddrMentry
  43. }
  44.  
  45. #package provide Tablelist $tablelist::version
  46. #package provide tablelist $tablelist::version
  47.  
  48. #lappend auto_path [file join $tablelist::library scripts]
  49.